{ INFORMATICS.MCCME.RU
  Problem statement: http://informatics.mccme.ru/moodle/mod/statements/view3.php?chapterid=1540
  Verdict: Accepted
}
uses 
	SysUtils, Math;
 
var
	n,ans:longint;
 
function get(n:longint):longint;
 
var
	s:string;
	i,ls:longint;
 
begin
result:=0;
s:=inttostr(n);
ls:=length(s);
for i:=1 to ls do
	inc(result,ord(s[i])-48);
end;
 
begin
reset(input,'input.txt');
rewrite(output,'output.txt');
read(n);
ans:=get(n);
while ans>9 do ans:=get(ans);
write(ans);
end.